home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / FORM < prev    next >
Text File  |  1990-09-14  |  3KB  |  94 lines
  1. temp <- <primitive 110 16 >
  2. <primitive 112 temp 1        " printAt: " \
  3.     #( #[ 33 10 20 114 16 225 3 14 35 34 129 0 242 34 34 \
  4.  10 49 81 192 11 50 243 179 242 245] \
  5.     #( #printAt:  ) ) >
  6.  
  7. <primitive 112 temp 2        " rows " \
  8.     #( #[ 16 163 243 245] \
  9.     #(  ) ) >
  10.  
  11. <primitive 112 temp 3        " row:put: " \
  12.     #( #[ 33 16 163 204 247 15 16 163 33 199 247 9 16 48 129 \
  13.  1 241 96 242 249 15 242 16 33 34 208 242 245] \
  14.     #( '' #grow:  ) ) >
  15.  
  16. <primitive 112 temp 4        " row: " \
  17.     #( #[ 16 33 224 2 48 243 213 243 245] \
  18.     #( ''  ) ) >
  19.  
  20. <primitive 112 temp 5        " rotated " \
  21.     #( #[ 32 128 0 114 65 160 113 81 32 128 2 178 225 4 36 \
  22.  5 58 34 176 115 81 34 178 225 5 17 35 34 37 193 \
  23.  81 192 16 37 177 36 224 2 51 243 213 208 243 179 242 \
  24.  33 36 35 130 4 243 179 242 33 243 245] \
  25.     #( #rows #Form #columns $  #row:put:  ) ) >
  26.  
  27. <primitive 112 temp 6        " reversed " \
  28.     #( #[ 32 128 0 114 65 160 113 81 32 128 2 178 225 4 23 \
  29.  16 36 177 115 35 5 58 34 35 163 193 176 11 17 115 \
  30.  33 36 35 128 3 130 4 243 179 242 33 243 245] \
  31.     #( #columns #Form #rows #reversed #row:put:  ) ) >
  32.  
  33. <primitive 112 temp 7        " placeForm:at: " \
  34.     #( #[ 34 10 49 115 34 10 50 81 193 117 33 225 7 44 32 \
  35.  35 129 0 116 39 163 118 36 37 38 192 129 1 116 81 \
  36.  38 178 225 8 9 36 37 40 192 39 40 177 208 243 179 \
  37.  242 32 35 36 130 2 242 35 81 192 241 115 243 179 242 \
  38.  245] \
  39.     #( #row: #padTo: #row:put:  ) ) >
  40.  
  41. <primitive 112 temp 8        " overLayForm:at: " \
  42.     #( #[ 34 10 49 115 34 10 50 81 193 117 33 225 7 51 32 \
  43.  35 129 0 116 39 163 118 36 37 38 192 129 1 116 81 \
  44.  38 178 225 8 16 39 40 177 50 202 247 8 36 37 40 \
  45.  192 39 40 177 208 243 179 242 32 35 36 130 3 242 35 \
  46.  81 192 241 115 243 179 242 245] \
  47.     #( #row: #padTo: $  #row:put:  ) ) >
  48.  
  49. <primitive 112 temp 9        " next " \
  50.     #( #[ 16 167 243 245] \
  51.     #(  ) ) >
  52.  
  53. <primitive 112 temp 10        " first " \
  54.     #( #[ 16 166 243 245] \
  55.     #(  ) ) >
  56.  
  57. <primitive 112 temp 11        " extent " \
  58.     #( #[ 32 128 0 32 128 1 129 2 243 245] \
  59.     #( #rows #columns #@  ) ) >
  60.  
  61. <primitive 112 temp 12        " eraseAt: " \
  62.     #( #[ 33 10 20 114 16 225 3 18 5 58 35 163 176 34 129 \
  63.  0 242 34 34 10 49 81 192 11 50 243 179 242 245] \
  64.     #( #printAt:  ) ) >
  65.  
  66. <primitive 112 temp 13        " display " \
  67.     #( #[ 94 128 0 242 32 81 81 129 1 129 2 242 51 5 20 \
  68.  80 129 1 129 2 242 245] \
  69.     #( #clearScreen #@ #printAt: '  '  ) ) >
  70.  
  71. <primitive 112 temp 14        " columns " \
  72.     #( #[ 16 80 226 1 6 33 34 163 12 16 243 215 243 245] \
  73.     #(  ) ) >
  74.  
  75. <primitive 112 temp 15        " clipFrom:to: " \
  76.     #( #[ 33 10 50 81 193 118 33 10 49 81 193 119 34 10 50 \
  77.  38 193 117 64 160 115 33 10 49 34 10 49 178 225 9 \
  78.  39 5 58 37 176 116 32 41 129 1 120 81 37 178 225 \
  79.  10 13 36 42 40 38 42 192 224 2 50 243 213 208 243 \
  80.  179 242 35 41 39 193 36 130 3 243 179 242 35 243 245 \
  81. ] \
  82.     #( #Form #row: $  #row:put:  ) ) >
  83.  
  84. <primitive 112 temp 16        " new " \
  85.     #( #[ 5 30 80 176 96 245] \
  86.     #(  ) ) >
  87.  
  88. <primitive 98 #Form \
  89.     <primitive 97 #Form #Object #\smalltlk\prelude\form.st \
  90.     #(  #text ) \
  91.     #( #printAt: #rows #row:put: #row: #rotated #reversed #placeForm:at: #overLayForm:at: #next #first #extent #eraseAt: #display #columns #clipFrom:to: #new  ) \
  92.     temp 11 13 > >
  93.  
  94.